home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / SystemCode / internetConfig.tcl < prev    next >
Encoding:
Text File  |  1996-01-25  |  700 b   |  21 lines  |  [TEXT/ALFA]
  1.  
  2. proc internetProc {menu item} {
  3.     global HOME
  4.     
  5.     if {[catch {switch $item {
  6.         goTo icOpen
  7.         help {edit -r "$HOME:Help:Internet Config"}
  8.         webBrowser {launch -f [icGetPref -t 1 {helperÑhttp}]}
  9.         mailClient {launch -f [icGetPref -t 1 {helperÑmailto}]}
  10.         ftpClient {launch -f [icGetPref -t 1 {helperÑftp}]}
  11.         gopherClient {launch -f [icGetPref -t 1 {helperÑgopher}]}
  12.         telnetClient {launch -f [icGetPref -t 1 {helperÑtelnet}]}
  13.         newsClient {launch -f [icGetPref -t 1 {helperÑnews}]}
  14.         resolveUrl {icURL [getSelect]}
  15.         viewHtmlFile htmlSendWindow
  16.     }}]} {
  17.         alertnote "Despite what Internet Config says, you should reboot after using IC for the first time."
  18.         launch -f "$HOME:Tools:Internet Config"
  19.     }
  20. }
  21.